Building the Cayley graphs of the alternating group
A
4
and the symmetric group
S
4
using the
CayleyGraph
function in Mathematica 8:
Row[{CayleyGraph[AlternatingGroup[4],BaseStyleThick,ImageSize220],Spacer[50],CayleyGraph[SymmetricGroup[4],BaseStyleThick,ImageSize220]}]